home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / lib / mutt / debian-ldap-query next >
Encoding:
Text File  |  2011-12-19  |  1.4 KB  |  49 lines
  1. #!/usr/bin/perl -w
  2. # by Ben Collins <bcollins@debian.org>, butchered by Marco d'Itri <md@linux.it>
  3. # to use, add to ~/.muttrc:
  4. #  set query_command="/usr/lib/mutt/debian-ldap-query %s"
  5.  
  6. use strict;
  7.  
  8. my @attrs = qw(sn mn cn ircnick uid);
  9. my $base = 'ou=users, dc=debian, dc=org';
  10. my $server = 'db.debian.org';
  11. my $port = 389;
  12.  
  13. die "Usage: $0 <name> [<name>...]\n" if not $ARGV[0];
  14.  
  15. eval 'require Net::LDAP;';
  16. if ($@) {
  17.     $@ =~ s/ in \@INC.*/./;
  18.     die "Could not load Net::LDAP: $@\n" .
  19.     "(Warning: this script depends on the libnet-ldap-perl (>=0.22-1) package.)\n"
  20. }
  21.  
  22. my $ldap = Net::LDAP->new($server, port => $port) or
  23.     die "Could not contact LDAP server $server:$port";
  24. $ldap->bind or die 'Could not bind';
  25.  
  26. my @results;
  27.  
  28. foreach my $search (@ARGV) {
  29.     my $query = join '', map { "($_=*$search*)" } @attrs;
  30.     my $mesg = $ldap->search(
  31.         base => $base, filter => "(|$query)", attrs => [ @attrs ]
  32.     ) or die 'Failed search';
  33.     foreach my $entry ($mesg->entries) {
  34.         my $uid   = $entry->get_value('uid')    || next;
  35.         my $fname = $entry->get_value('cn')    || '';
  36.         my $mname = $entry->get_value('mn')    || '';
  37.         $mname .= ' ' if $mname;
  38.         my $lname = $entry->get_value('sn')    || '';
  39.         my $nick  = $entry->get_value('ircnick')|| '';
  40.         push @results, "<$uid\@debian.org>\t$fname $mname$lname\t($nick)\n";
  41.     }
  42. }
  43.  
  44. $ldap->unbind;
  45.  
  46. print 'Debian Developer query: found ', scalar @results, "\n", @results;
  47. exit 1 if not @results;
  48. exit 0;
  49.